home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / boot / czesc_2 / windowdaemon / install < prev    next >
Encoding:
Text File  |  1994-05-11  |  3.1 KB  |  171 lines
  1. (complete 0)
  2.  
  3. (set #bad-kick
  4. (cat "You must be using Kickstart 2.0 (V37) to install WindowDaemon"
  5. ))
  6.  
  7. (set #which-disk
  8. (cat "\nSelect directory to install to"
  9. ))
  10.  
  11. (set #which-disk-help
  12. (cat "\nThis section lets you choose where to install WindowDaemon "
  13.      "on your hard disk. This should normally go in the Workbench "
  14.      "Startup drawer - SYS:WBStartup.\n\n"
  15.      @askdir-help
  16. ))
  17.  
  18. (set #which-language
  19. (cat "\nWhich languages should be installed"
  20. ))
  21.  
  22. (set #which-language-help
  23. (cat "\nCheck the boxes of the languages you wish "
  24.      "to have available with WindowDaemon.\n\n"
  25.      @askoptions-help
  26. ))
  27.  
  28. (set #which-icons
  29. (cat "\nInstall MagicWB style icons?"
  30. ))
  31.  
  32. (set #which-icons-help
  33. (cat "\nThe MagicWB icon for WindowDaemon was designed by Osma Ahvenlampi (oahvenla@snakemail.hut.fi) "
  34.      @askbool-help
  35. ))
  36.  
  37. (set #install-docs
  38. (cat "\nInstall documentation?"
  39. ))
  40.  
  41. (set #install-docs-help
  42. (cat "You may need help at a later date...\n\n"
  43.      @askbool-help
  44. ))
  45.  
  46.  
  47. (if (< (/ (getversion) 65536) 37)
  48. (
  49.     (abort #bad-kick)
  50. ))
  51.  
  52. (complete 15)
  53.  
  54. ;=============================================================================
  55. ; Installation target dir?
  56.  
  57. (set target (askdir (prompt #which-disk)
  58.         (help #which-disk-help)
  59.         (default "SYS:WBStartup")
  60.     )
  61. )
  62. (set @default-dest target)
  63.  
  64. (complete 30)
  65.  
  66. ;=============================================================================
  67. ; which languages should be installed?
  68. ;
  69. ;(set lang (askoptions (prompt #which-language)
  70. ;              (help #which-language-help)
  71. ;              (choices "Français" )
  72. ;              (default 0)
  73. ;      )
  74. ;
  75. ;)
  76. ;
  77. ;    (set n 0)
  78. ;
  79. ;    (while (set language (select n "français" "" ) )
  80. ;    (
  81. ;    (if (IN lang n)
  82. ;
  83. ;    (copyfiles
  84. ;        (source (cat "catalogs/" language "/matrix/" ))
  85. ;        (dest (cat "LOCALE:catalogs/" language "/matrix/" ))
  86. ;        (all)
  87. ;    )
  88. ;    )
  89. ;        (set n (+ n 1))
  90. ;    ))
  91. ;
  92. (complete 50)
  93.  
  94. ;=============================================================================
  95. ; Required libraries
  96.  
  97. (copylib
  98.     (prompt "Installing matrix.library")
  99.     (help @copylib-help)
  100.     (source "matrix.library")
  101.     (dest "LIBS:")
  102.     (confirm)
  103. )
  104. (complete 60)
  105.  
  106. ;=============================================================================
  107. ; Main program
  108.  
  109. (copyfiles
  110.     (prompt "Copying to " #target )
  111.     (help @copyfiles-help)
  112.     (source "")
  113.     (dest (cat target) )
  114.     (choices "WindowDaemon")
  115. )
  116.  
  117. (complete 70)
  118.  
  119. ;(set iconz (askbool (prompt #which-icons)
  120. ;        (help #which-icons-help)
  121. ;        (choices "YES" "NO")
  122. ;      )
  123. ;)
  124.  
  125.  
  126.     (if (= iconz 0)                           ; conditional test
  127.         (set #iconname (cat "WindowDaemon.info" )
  128.     )
  129.         (set #iconname (cat "WindowDaemon.magicwb" )
  130.     )
  131.     )
  132.  
  133. (copyfiles
  134.     (prompt "Installing icons...")
  135.     (help @copyfiles-help)
  136.     (source #iconname)
  137.     (dest (cat target) )
  138.     (newname "WindowDaemon.info" )
  139. )
  140.  
  141.  
  142.  
  143.  
  144.  
  145. (complete 80)
  146.  
  147. (set docs (askbool (prompt #install-docs)
  148.         (help #install-docs-help)
  149.         (choices "YES" "NO")
  150.       )
  151. )
  152.  
  153. (complete 90)
  154.  
  155. (if (= docs 1)
  156.     (copyfiles (source "" )
  157.        (dest (askdir    (prompt #doc-dir )
  158.             (help #doc-dir-help )
  159.             (default "sys:")
  160.             (newpath)
  161.             (disk)
  162.         ))
  163.        (infos)
  164.        (choices "WindowDaemon.guide" "windowdaemon.cd" )
  165.     )
  166. )
  167.  
  168.  
  169. (complete 100)
  170.  
  171.